home *** CD-ROM | disk | FTP | other *** search
/ Network CD 2 / Network CD - Volume 2.iso / programs / internet / terminal / vltj5867.lha / VLT / rexx / VLTMouse.vlt < prev    next >
Encoding:
Text File  |  1994-03-27  |  688 b   |  29 lines
  1. /** VLTMouse.vlt
  2. *
  3. *   Demo of how to program VLT's mouse to send something to an ARexx port.
  4. *   See also VLTMouse.rexx.
  5. *
  6. **/
  7. /*
  8. *   Add libraries if necessary
  9. */
  10. if show("l", "rexxarplib.library") = 0 then do
  11.    check = addlib('rexxsupport.library', 0, -30, 0)
  12.    check = addlib('rexxarplib.library',  0, -30, 0)
  13. end
  14. /*
  15. *   The following sequence determines both VLT's screen and port name.
  16. */
  17. vltport = address()
  18. cols = ScreenCols(vltport)
  19. if cols == -1 then vltscreen = ""
  20. else               vltscreen = vltport
  21. /*
  22. *   Start the program that receives the mouse clicks
  23. */
  24. "@@VLTMouse.rexx "vltport" "vltscreen
  25.  
  26. "mousesupport (~rx 'address "vltport"MOUSE %X %Y %x %y %c %l %q')"
  27.  
  28. exit
  29.